home *** CD-ROM | disk | FTP | other *** search
/ Pascal Super Library / Pascal Super Library (CW International)(1997).bin / BORL_TIP / TI1000 / TI1728.ASC < prev    next >
Text File  |  1993-10-21  |  2KB  |  133 lines
  1.  
  2.  
  3.  
  4.  
  5.  
  6.  
  7.  
  8.   PRODUCT  :  Turbo Pascal                          NUMBER  :  1728
  9.   VERSION  :  All
  10.        OS  :  DOS
  11.      DATE  :  October 21, 1993                         PAGE  :  1/2
  12.  
  13.     TITLE  :  Using editor from Turbo Pascal 4.0 w/ newer versions
  14.  
  15.  
  16.  
  17.  
  18.   This file is for owners of Turbo Pascal 6 or 7 who want to use
  19.   the editor from the editor toolbox that shipped with Turbo
  20.   Pascal Version 4.0. To begin, find the file called BINED.PAS
  21.   that shipped with Toolbox. You should make the following change
  22.   to BINED.PAS:
  23.  
  24.   Procedure ResetBinaryEditor(var EDData: EdCB);
  25.  
  26.   var X: Integer;  { <<--- ADD THIS LINE; ITS THE FIX! }
  27.  
  28.   begin
  29.     EditNew(EdData);
  30.   end;
  31.  
  32.   The addition of the above line sets up a stack frame
  33.   for this proc.
  34.  
  35.   Here's some additional text taken from the TP6 HELPME!.DOC:
  36.  
  37.   With the exception of the Turbo Editor Toolbox, the 4.0
  38.   toolboxes will compile with Turbo Pascal 6.0. The Turbo Editor
  39.   Toolbox needs the minor source code changes described below in
  40.   order to work with the new heap manager:
  41.  
  42.     MicroStar
  43.     ---------
  44.       In MSVARS.PAS:
  45.         1) On line 219 after "var"
  46.               Add  "FreePtr: Pointer;"
  47.         2) On line 295 after "begin"
  48.               Add  "FreePtr := Ptr(Seg(HeapEnd^) - $1000, 0);"
  49.       In INVOKE.PAS:
  50.         1) On line 18 after "Dos"
  51.               Add   ", MsVars"
  52.  
  53.     FirstEd
  54.     -------
  55.       In EDVARS.PAS:
  56.         1) On line 139
  57.               Add "FreePtr: Pointer;"
  58.            On line 207
  59.               Add "FreePtr := Ptr(Seg(HeapEnd^) - $1000, 0);"
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.   PRODUCT  :  Turbo Pascal                          NUMBER  :  1728
  75.   VERSION  :  All
  76.        OS  :  DOS
  77.      DATE  :  October 21, 1993                         PAGE  :  2/2
  78.  
  79.     TITLE  :  Using editor from Turbo Pascal 4.0 w/ newer versions
  80.  
  81.  
  82.  
  83.  
  84.   The TP6 notes then go on to talk about a new copy of BINED.OBJ.
  85.   This is a fictitious copy and does not exist. Don't try to find
  86.   it. Instead, add "THE FIX!" shown above.
  87.  
  88.  
  89.   DISCLAIMER: You have the right to use this technical information
  90.   subject to the terms of the No-Nonsense License Statement that
  91.   you received with the Borland product to which this information
  92.   pertains.
  93.  
  94.  
  95.  
  96.  
  97.  
  98.  
  99.  
  100.  
  101.  
  102.  
  103.  
  104.  
  105.  
  106.  
  107.  
  108.  
  109.  
  110.  
  111.  
  112.  
  113.  
  114.  
  115.  
  116.  
  117.  
  118.  
  119.  
  120.  
  121.  
  122.  
  123.  
  124.  
  125.  
  126.  
  127.  
  128.  
  129.  
  130.  
  131.  
  132.  
  133.